home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS036.dsk / APPLESOFT.int < prev    next >
Text File  |  2012-02-16  |  949b  |  23 lines
  1. 10 TEXT :CALL -936
  2. 20  POKE 50,63:PRINT "                                        ";: POKE 50,255
  3. 25 PRINT "----------------------------------------";
  4. 30 TAB (16):PRINT "APPLE-CAN"
  5. 35 PRINT "----------------------------------------";
  6. 40  POKE 50,63:PRINT "                                        ";: POKE 50,255
  7. 50 VTAB 23: POKE 50,63:PRINT "                                        ";: POKE 50,255
  8. 60 VTAB 8:PRINT "    THIS DISKETTE IS THE PROPERTY OF"
  9. 70 PRINT :TAB (16):PRINT "APPLE-CAN"
  10. 80 PRINT :TAB (9):PRINT "AND  IS TO BE COPIED BY"
  11. 85 PRINT 
  12. 90 PRINT :TAB (10): POKE 50,127:PRINT "OFFICIAL";:TAB (19):PRINT "MEMBERS";:TAB (27):PRINT "ONLY": POKE 50,255
  13. 92 TAB (10):PRINT "---------------------"
  14. 95 PRINT :PRINT 
  15. 100 PRINT :TAB (6):PRINT "MEMBERSHIP CARD MUST BE SHOWN"
  16. 110 FOR X=1 TO 2500:NEXT X
  17. 120 VTAB 23:TAB (14):PRINT " PRESS A KEY "
  18. 130 KD= PEEK (-16384)
  19. 140 IF KD<128 THEN 130
  20. 150  POKE -16368,0
  21. 160 PRINT "<CTRL-D>RUN MENU"
  22. 9999 END 
  23.